home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / pc / media / dirs / BackUp / WorkCenter.dir / 00024_Script_MovieAction < prev    next >
Text File  |  2002-10-11  |  690b  |  27 lines

  1. --Attach this behavior to a movie to receive commands from control buttons.
  2. property SpNum
  3.  
  4. on new me
  5.   SpNum = me.spritenum
  6. end
  7.  
  8. --MouseDown Controls
  9. on MovieActionDown me, MovieControl
  10.   case MovieControl of
  11.     "Play" :  sprite(SpNum).movierate = 1
  12.     "Pause" :  sprite(SpNum).movierate = 0
  13.     "Stop" : sprite(SpNum).movietime = 0
  14.       sprite(SpNum).movierate = 0
  15.     "Rewind" : sprite(SpNum).movierate = -2
  16.     "Fast Forward" : sprite(SpNum).movierate = 2
  17.   end case
  18. end
  19.  
  20. --MouseUp Controls
  21. on MovieActionUp me, MovieControl
  22.   case (MovieControl) of
  23.     "Rewind" : sprite(SpNum).movierate = 1
  24.     "Fast Forward" : sprite(SpNum).movierate = 1
  25.   end case
  26. end
  27.